home *** CD-ROM | disk | FTP | other *** search
- unit NewHntsU;
-
- interface
-
- uses
- WinProcs, WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, Db, DBTables, StdCtrls, Grids, DBGrids, DBHntGrd;
-
- type
- TForm1 = class(TForm)
- HintDBGrid1: THintDBGrid;
- Table1: TTable;
- DataSource1: TDataSource;
- chkTitles: TCheckBox;
- chkIndicator: TCheckBox;
- Table1SpeciesNo: TFloatField;
- Table1Category: TStringField;
- Table1Common_Name: TStringField;
- Table1SpeciesName: TStringField;
- Table1Lengthcm: TFloatField;
- Table1Length_In: TFloatField;
- Table1Notes: TMemoField;
- Table1Graphic: TGraphicField;
- procedure chkTitlesClick(Sender: TObject);
- procedure chkIndicatorClick(Sender: TObject);
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.DFM}
-
- procedure TForm1.chkTitlesClick(Sender: TObject);
- begin
- if chkTitles.Checked then
- HintDBGrid1.Options := HintDBGrid1.Options + [dgTitles]
- else
- HintDBGrid1.Options := HintDBGrid1.Options - [dgTitles]
- end;
-
- procedure TForm1.chkIndicatorClick(Sender: TObject);
- begin
- if chkIndicator.Checked then
- HintDBGrid1.Options := HintDBGrid1.Options + [dgIndicator]
- else
- HintDBGrid1.Options := HintDBGrid1.Options - [dgIndicator]
- end;
-
- end.
-